How Would You Survive?/How Would You Survive (1995)(Grolier)[Mac-PC].iso/mac/OPENING.DIR/00180_Script_180

Text File | 1995-09-06 | 1KB | 65 lines

global gOBtn1, gOBtn2, gOBtn3

on SetUpCreditButtons
  set gOBtn1 = birth(script "a2StateButton", 10, 155, "FeatureButSplClk.AIFF", "Credits", "HandCursor")
  set gOBtn2 = birth(script "a2StateButton", 11, 157, "FeatureButSplClk.AIFF", "SkipCredits", "HandCursor")
end

on CreditRollovers
  if objectP(gOBtn1) then
    Hilight(gOBtn1)
  end if
  if objectP(gOBtn2) then
    Hilight(gOBtn2)
  end if
end

on NextRollover
  if objectP(gOBtn3) then
    Hilight(gOBtn3)
  end if
end

on KillCreditButtons
  if objectP(gOBtn1) then
    hidecontrol(gOBtn1)
    set gOBtn1 = 0
  end if
  if objectP(gOBtn2) then
    hidecontrol(gOBtn2)
    set gOBtn2 = 0
  end if
end

on Credits
  go "Credits"
end

on SkipCredits
  go "Skip Credits"
end

on Grolier
  go "Grolier"
end

on Imergy
  go "Imergy"
end

on Register
  hidecontrol(gOBtn3)
  go "Register"
end

on SetUpNextButton
  set gOBtn3 = birth(script "a2StateButton", 12, 159, "FeatureButSplClk.AIFF", "Grolier", "HandCursor")
end

on KillNextScreenButton
  if objectP(gOBtn3) then
    hidecontrol(gOBtn3)
    set gOBtn3 = 0
  end if
end